Witam wszystkich serdecznie.
Mam problem z makrem w Outlooku 2007, które będzie mi ustawiać w polu "Od" przyporządkowany adres mailowy właściwy danemu folderowi. Wydaje mi się, że wszystko jest ok, ale niestety makro nie działa. Chodzi mi o to, żeby w przypadku wejściu w folder "Kuba" i wybraniu nowej wiadomości pojawiał się w niej automatyczny adres przypisany do tego foleru (w tym przypadku jest to kuba@outlook.pl) a nie ten domyślny, który podpowiada się za każdym razem przy tworzeniu nowej wiadomości.
Bardzo prosiłbym o pomoc.
Sub mailing()
Private WithEvents oInspectors As Inspectors
Private WithEvents oNewInspector As Inspector
Private WithEvents oItem As MailItem
Private g_bItemRead As Boolean
Private g_settings
Private Sub Application_Startup()
Set oInspectors = Application.Inspectors '
Set g_settings = CreateObject("Scripting.Dictionary")
g_settings.Add "AP Query", "ap.query@outlook.pl"
g_settings.Add "Kuba", "kuba@outlook.pl"
End Sub
Private Sub oNewInspector_Activate()
On Error Resume Next
If g_bItemRead Then Exit Sub
If oNewInspector.EditorType = olEditorWord Then Exit Sub
Dim oMailItem As MailItem
Dim oCurFolder As MAPIFolder
Set oCurFolder = Application.ActiveExplorer.CurrentFolder
Dim strFromAddr As String
strFromAddr = g_settings.Item(oCurFolder.Name)
If strFromAddr = "" Then Exit Sub
Set oMailItem = oNewInspector.CurrentItem
oMailItem.SentOnBehalfOfName = strFromAddr
Dim cmdBars As CommandBars
Dim cmdBar As CommandBar
Dim oMenuItem As CommandBarControl
Set cmdBars = oNewInspector.CommandBars
Set cmdBar = cmdBars.Item("Menu Bar")
Set oMenuItem = cmdBar.FindControl(, 1867, , , True)
oMenuItem.Execute
oMenuItem.Execute
End Sub
Private Sub oInspectors_NewInspector(ByVal oInspector As Inspector)
On Error Resume Next
Set oItem = oInspector.CurrentItem
If Not oItem Is Nothing Then '
Set oNewInspector = oInspector
g_bItemRead = False
End If
End Sub
Private Sub oItem_Read()
g_bItemRead = True
End Sub
Private Sub oNewInspector_Close()
Set oItem = Nothing
End Sub
